home *** CD-ROM | disk | FTP | other *** search
/ Zoom 2 / Zoom - Release 2 (1996)(Active Software)[!].iso / texts / dosman121 / dosman.rx < prev    next >
Text File  |  1995-05-18  |  560b  |  29 lines
  1. /* DosMan for REXX interface */
  2. /* by Peter Bagnato and John Collett */
  3.  
  4. parse upper arg infile
  5. if infile = '' then do
  6.  say 'Input page you wish to read:'
  7.  pull infile
  8.  infile='man/'infile
  9.  end
  10. if ~open('textfile',infile,'read') then do
  11.  say 'That file or path does not exist...'
  12.  exit 20
  13.  end
  14. do until eof('textfile')
  15.  i=20                 /* Edit this value to make fewer or more lines appear in CLI */
  16.   do until i = 0
  17.   line=readln('textfile')
  18.   say line
  19.   i=i-1
  20.   end
  21.  say 'continue reading? y/n'
  22.  pull ans
  23.  if ans='n' then
  24.   exit 20
  25.  endif 
  26.  end
  27. exit 0
  28.  
  29.